' author: modified by: josy1024 http://code.google.com/u/josy1024/
' codebase: http://code.google.com/p/josycodeprojects/
'  $URL: http://josycodeprojects.googlecode.com/svn/trunk/organize/abo/drop_source2_add_abo.vbs $
'  $Author: josy1024@gmail.com $
'  $Rev: 22 $ 
'  $LastChangedDate: 2010-12-12 22:09:19 +0000 (Sun, 12 Dec 2010) $


first = true
fullname = ""
	Const ForAppending = 8
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	
	Set objTextFile = objFSO.OpenTextFile _
		    (GET_SCRIPT_Verzeichnis & "\aboliste.txt", ForAppending, True)
			
Set objArgs = WScript.Arguments
For Each arg in objArgs

	fullname = arg
	objTextFile.WriteLine(fullname)
	REM objTextFile.WriteLine(fullname)

Next
objTextFile.Close

Function GET_SCRIPT_Verzeichnis()
	Dim strPfad
	Dim intLaenge
	strPfad=WScript.ScriptFullName
	intLaenge=Len(WScript.ScriptName)
	strPfad=Mid(strPfad,1,Len(strPfad)-intLaenge)
	
	'If strPfad = "" Then
	'		strPfad="\\server-gpm\autoinstall\"
	'End If

	GET_SCRIPT_Verzeichnis=strPfad
End Function